home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / EXEC FILE MAKER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  20 lines
  1. 1  REM  **********************
  2. 2  REM  *  EXEC FILE MAKER   *
  3. 3  REM  *  BY NIBBLE STAFF   *
  4. 4  REM  * COPYRIGHT (C) 1982 *
  5. 5  REM  * BY MICRO-SPARC INC *
  6. 6  REM  * LINCOLN, MA. 01773 *
  7. 7  REM  **********************
  8. 10 Q$ =  CHR$(34):D$ =  CHR$(4)
  9. 20  PRINT D$"OPEN M/PACKEXEC1": PRINT D$"DELETE M/PACKEXEC1": PRINT D$"OPEN M/PACKEXEC1": PRINT D$"WRITE M/PACKEXEC1"
  10. 30  PRINT "A$="Q$"                                   X"Q$: REM  35 SPACES BEFORE X
  11. 40  PRINT "FX$=FI$+A$:FORJ=1TO30:POKE815+J,ASC(MID$(FX$,J,1)):NEXT"
  12. 50  PRINT "HOME:VTAB12:FLASH:PRINT"Q$"MAKING TEXT FILE"Q$
  13. 60  PRINT "NORMAL:PRINTCHR$(4);"Q$"LOAD"Q$"FI$"
  14. 70  PRINT "EXECM/PACKEXEC2"
  15. 80  PRINT D$"CLOSE": PRINT D$"OPEN M/PACKEXEC2": PRINT D$"DELETE M/PACKEXEC2": PRINT D$"OPEN M/PACKEXEC2": PRINT D$"WRITE M/PACKEXEC2"
  16. 90  PRINT "0D$=CHR$(4):F$="Q$"M/PACKFILE TEMP"Q$":PRINTD$"Q$"OPEN"Q$"F$:PRINTD$"Q$"WRITE"Q$"F$:POKE33,30:POKE34,18:HOME:LIST1,63999:PRINTD$"Q$"CLOSE"Q$":TEXT:HOME:END"
  17. 100  PRINT "RUN"
  18. 110  PRINT "LOAD PROGRAM PACKER"
  19. 120  PRINT "RUN20"
  20. 130  PRINT D$"CLOSE"